home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
fd200.zip
/
FD_IMAGE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-02-27
|
848b
|
41 lines
procedure color_image;
var i : integer;
attr : integer;
ver : string[4];
begin
attr := norm_b SHL 4 + norm_f;
for i := 0 to 1999 do
begin
image1[i SHL 1 + 1] := attr;
image2[i SHL 1 + 1] := attr;
save_image[i SHL 1 + 1] := attr;
end;
ver := version;
for i := 1 to length(ver) do
image1[3122 + (i SHL 1)] := ord(ver[i]);
end;
procedure read_image;
var imagefile : file;
begin
assign(imagefile,'FIELDDAY.IMG');
{$I-}
reset(imagefile);
if (IOresult = 0)
then
begin
blockread(imagefile, image1, 32);
blockread(imagefile, image2, 32);
close(imagefile);
color_image;
end
else
begin
writeln('File FIELDDAY.IMG must be on default drive/directory.');
delay(5000);
restore_entry_screen;
halt;
end;
end;